home *** CD-ROM | disk | FTP | other *** search
- /* Progress.rexx */
-
- IF ~SHOW('LIBRARIES','tritonrexx.library') THEN DO
- IF ~ADDLIB('tritonrexx.library',10,-30,0) THEN DO
- SAY 'Kann die <tritonrexx.library> nicht öffnen!'
- EXIT(10)
- END
- END
-
- IF ~SHOW('LIBRARIES','rexxsupport.library') THEN DO
- IF ~ADDLIB('rexxsupport.library',0,-30,0) THEN DO
- SAY 'Kann die <rexxsupport.library> nicht öffnen!'
- EXIT(10)
- END
- END
-
- windowtags = WindowID(1),
- WindowTitle('Progress'),
- 'HorizGroupA',
- 'Space',
- 'VertGroupA',
- 'Space',
- NamedSeparator('Prozent fertig'),
- 'Space',
- 'HorizGroupSA',
- TextN("0%"),
- 'SpaceB',
- TextN("25%"),
- 'SpaceB',
- TextN("50%"),
- 'SpaceB',
- TextN("75%"),
- 'SpaceB',
- TextN("100%"),
- 'EndGroup',
- Progress(100,0,7),
- 'Space',
- 'EndGroup',
- 'Space',
- 'EndGroup',
- 'EndProject'
-
- app = TR_CREATEAPP('TRCA_Name Progress')
-
- IF app ~= '00000000'x THEN DO
-
- window = TR_OPENPROJECT(app,windowtags)
-
- IF window ~= '00000000'x THEN DO
- ende = 0
- prozent = 0
-
- DO WHILE ende ~= 1
- DELAY(10)
-
- IF prozent < 100 THEN DO
- prozent = prozent+1
-
- CALL TR_SETATTRIBUTE(window,7,'TRAT_Value',prozent)
- END
-
- DO WHILE TR_HANDLEMSG(app,'event')
- IF event.trm_class = 'TRMS_CLOSEWINDOW' THEN
- ende = 1
- END
- END
-
- CALL TR_CLOSEPROJECT(window)
- END
-
- CALL TR_DELETEAPP(app)
- END
-
- EXIT(0)
-